home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Crossfade Tester < prev    next >
Encoding:
Text File  |  1998-10-26  |  1.2 KB  |  40 lines  |  [TEXT/ScoM]
  1. ; crossfading example
  2.  
  3. ; You don't need a synthesizer like Wavestation to get crossfading sounds.
  4. ; You can crossfade between any sounds using volume controller and a controller
  5. ; wave that has 180 degrees phase difference. Make both instruments play
  6. ; the same symbols and that's it, instant crossfades with any synth.
  7.  
  8. ; Here you define the voice1 to consist of 2 components. After that
  9. ; you will define the classes for the voice1 *that are the same* for
  10. ; both components. Next you define for each component separately the
  11. ; unique values, which are the sound name and volume controller wave phase.
  12.  
  13. (def-orchestra 'orchestra
  14.    all-instruments (voice1)
  15.    voice1 (component-1 component-2)
  16. )
  17.  
  18. (def-section sect-a
  19.   voice1
  20.     zone '(2/1)
  21.     tonality (activate-tonality (major c 4))
  22.     length '(1/16)
  23.     symbol '(a b c)
  24.     velocity '(64)
  25.   component-1
  26.      channel 1
  27.      program (mu80-sounds violin)
  28.      controller (mu80-controllers
  29.                   volume (list (vector-round 0 127 (gen-sin 1 0.3 32 90))))
  30.   component-2
  31.      channel 2
  32.      program (mu80-sounds grandpno)
  33.      controller (mu80-controllers
  34.                   volume (list (vector-round 0 127 (gen-sin 1 0.3 32 -90))))
  35. )
  36.  
  37. (play-file-p "crossfading"
  38.    all-instruments '(sect-a)
  39. )
  40.